unit unitHttpFieldInfo;

interface

type

{ THttpFieldInfo }

  THttpFieldInfo = class(TObject)
  private
    FText: string;
    FName: string;
    procedure SetName(const Value: string);
    procedure SetText(const Value: string);

  protected

  public
    property Name: string read FName write SetName;
    property Text: string read FText write SetText;
    constructor Create;
    destructor Destroy; override;
  published

  end;

implementation

{ THttpFieldInfo }

constructor THttpFieldInfo.Create;
begin

end;

destructor THttpFieldInfo.Destroy;
begin

  inherited;
end;

procedure THttpFieldInfo.SetName(const Value: string);
begin
  FName := Value;
end;

procedure THttpFieldInfo.SetText(const Value: string);
begin
  FText := Value;
end;

end.

